home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / !ENCODE_DECODE next >
Text File  |  1997-04-05  |  240b  |  5 lines
  1. ENCODE:procedure;parse arg t,k;a=xrange(" ","~")
  2.   k=xrange(d2c(32+k),"~")xrange(" ",d2c(31+k));return translate(t,a,k)
  3. DECODE:procedure;parse arg t,k;a=xrange(" ","~")
  4.   k=xrange(d2c(32+k),"~")xrange(" ",d2c(31+k));return translate(t,k,a)
  5.